home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
winlib1.zip
/
EXAMPLES.ZIP
/
EXAM45.C
< prev
next >
Wrap
Text File
|
1991-01-06
|
469b
|
17 lines
#include <window.h>
#define NORM CREATE_VIDEO_ATTRIBUTE(black,white)
WPOINTER w;
main()
{
WindowInitializeSystem();
WindowSaveInitial(0);
w = WindowInitialize(BORDER,1,1,40,10,NORM,NORM,SINGLEBOX);
WindowOpen(w);
WindowDisplay(w,1,NOEFFECT);
WindowWriteString(w,"Press a key to move cursor",1,1);/* Write String */
GET_KEY();
WindowMoveCursor(w,7,5); /* Move Cursor To row 7, column 5 of the window */
}